home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / albgene4.dir / 00265_Script_265 < prev    next >
Text File  |  1983-01-30  |  610b  |  20 lines
  1. on chiamapopsot
  2.   global attore,cisei
  3.   set cisei to true
  4.   
  5.     if objectP (attore) then   forget attore
  6.     
  7.   set attore to window ("popup")
  8.   if the machinetype < 255 then
  9.     set the filename of attore to ("invenzioni:invenzio:popsot.dir")
  10.   else
  11.     set a to char 1 of the moviepath
  12.     set the filename of attore to (a & ":\invenzio\popsot.dir")
  13.   end if
  14.   set s to rect (the stageLeft+68,the stageTop +295,the stageLeft+356,the stageTop + 423)
  15.   set the rect of window "popup" to s
  16.   set the windowType of  window "popup" to 3      
  17.   open attore
  18.   moveToFront window "popup"
  19. end 
  20.